home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8712a.d64 / bewegte sprites (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  34 lines
  1. 10 V=53248:POKEV+30,0:POKEV+32,0:POKEV+33,0:POKEV+23,0:POKEV+29,0
  2. 20 POKE56576,1:POKE648,132:POKE56,128:PRINTCHR$(147)CHR$(153)
  3. 30 FORSP=128TO130
  4. 40 FORBY=0TO41:READW:POKE32768+SP*64+BY,W:NEXTBY
  5. 50 FORB0=42TO62:POKE32768+SP*64+B0,0:NEXTB0,SP
  6. 60 FORSP=131TO134
  7. 70 FORBY=0TO29:READW:POKE32768+SP*64+BY,W:NEXTBY
  8. 80 FORB0=30TO62:POKE32768+SP*64+B0,0:NEXTB0,SP
  9. 90 POKEV+21,3:POKEV+39,6:POKEV+40,12:POKEV+3,60
  10. 100 B1=128:B2=131:RI=1:Y1=250
  11. 110 FORXK=0TO344
  12. 120 POKE34808,B1:POKE34809,B2
  13. 130 POKEV,XKAND255:POKEV+2,XKAND255:POKEV+1,Y1:POKEV+16,INT(XK/256)*3
  14. 140 KO=PEEK(V+30):IFKO>0THENPOKEV+30,0:Y1=250
  15. 150 POKEV+32,KO
  16. 160 B1=128+ABS((XKAND3)-1):B2=B2+1:IFB2>134THENB2=131
  17. 170 Y1=Y1-1
  18. 180 NEXTXK
  19. 190 GOTO100
  20. 200 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,240,0,193,248,192,166,4,192,88,18
  21. 210 DATA0,88,2,0,166,4,0,193,248,0,0,32,0,0,64,0 : REM FISCH1
  22. 220 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,112,0,240,80,65,248,112,102,4,0,88,18
  23. 230 DATA0,88,3,0,102,4,0,65,248,0,0,32,0,0,32,0 : REM FISCH2
  24. 240 DATA0,0,48,0,0,72,0,0,72,0,0,48,0,0,0,0,240,0,193,248,192,166,4,192,88
  25. 250 DATA18,0,88,2,0,166,4,0,193,248,0,0,32,0,0,16,0 : REM FISCH3
  26. 260 DATA8,0,0,8,0,0,120,0,0,72,0,0,75,222,238,74,82,170,255,255,255,128,0,2
  27. 270 DATA153,153,157,102,102,102 : REM FRACHTER1
  28. 280 DATA28,0,0,8,0,0,120,0,0,72,0,0,75,222,238,74,82,170,255,255,255,128,0,2
  29. 290 DATA179,51,55,204,204,204 : REM FRACHTER2
  30. 300 DATA62,0,0,8,0,0,120,0,0,72,0,0,75,222,238,74,82,170,255,255,255,128,0,2
  31. 310 DATA230,102,102,153,153,153 : REM FRACHTER3
  32. 320 DATA28,0,0,8,0,0,120,0,0,72,0,0,75,222,238,74,82,170,255,255,255,128,0,2
  33. 330 DATA204,204,204,51,51,51 : REM FRACHTER4
  34.